home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / der12.zip / DERDEMO.WND < prev   
Text File  |  1993-01-04  |  1KB  |  34 lines
  1. Const
  2. WIND01 : Array[3..15] Of Str80 = (
  3. 'Enter String :                          Enter Date    :',
  4. '',
  5. 'Enter Time   :                          Enter Phone   :',
  6. '',
  7. 'Enter Word   :                          Enter Integer :',
  8. '',
  9. 'Enter Byte   :                          Enter Real    :',
  10. '',
  11. 'Enter Sex    :                          Enter YesNo   :',
  12. '',
  13. 'Enter Social Security Number :',
  14. '',
  15. 'Select Normal Color  :                  Reverse Color :'
  16. );
  17.  
  18.   TISS : Array[2..15] of Str80 = (
  19. '[ ] Arrest (cardiac and/or respiratory within past 48 hours).',
  20. '[ ] Intubation performed in ICU.',
  21. '[ ] Controlled ventilation (with/without PEEP).',
  22. '[ ] Controlled ventilation with intermittent or continuous muscle relaxant.',
  23. '[ ] IMV or assisted respirations (with /without PEEP).',
  24. '[ ] Spontaneous PEEP or CPAP.',
  25. '[ ] Supplemental oxygen via mask or nasal prongs.',
  26. '[ ] Spontaneous respirations via endotracheal tube or tracheostomy.',
  27. '[ ] Incentive spirometry/IPPB/inhalation therapy.',
  28. '[ ] Tracheostomy (within 48 hours).',
  29. '[ ] Tracheostomy care.',
  30. '[ ] Chest tube(s).',
  31. '[ ] Chest physical therapy (percussion, drainage).',
  32. '[ ] Tracheal suctioning of non-intubated patient.'
  33. );
  34.